home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbmap.dxr / 00002_Init Layout Screen.ls < prev    next >
Encoding:
Text File  |  2000-01-27  |  1021 b   |  39 lines
  1. global gDBPictObjList
  2.  
  3. on InitLayOut
  4.   MyObj = getaProp(gDBPictObjList, GetObjProp())
  5.   ShowTitle()
  6.   ShowPict()
  7.   InitButtons(0)
  8.   updateStage()
  9.   InitRollOverText(MyObj)
  10. end
  11.  
  12. on ShowTitle
  13.   MyObj = getaProp(gDBPictObjList, GetObjProp())
  14.   SpriteList = GetSpriteList(MyObj)
  15.   TitleSprite = getaProp(SpriteList, #title)
  16.   xMember = member("title f")
  17.   puppetSprite(TitleSprite, 1)
  18.   set the textHeight of member xMember to 14
  19.   set the member of sprite TitleSprite to xMember
  20.   xLoc = point(20, 5)
  21.   if the machineType = 256 then
  22.     set the loc of sprite TitleSprite to xLoc + point(0, -1)
  23.   else
  24.     set the loc of sprite TitleSprite to xLoc
  25.   end if
  26. end
  27.  
  28. on ShowPict
  29.   MyObj = getaProp(gDBPictObjList, GetObjProp())
  30.   mediaName = GetMediaName(MyObj)
  31.   xMember = GetPictMember(MyObj)
  32.   SpriteList = GetSpriteList(MyObj)
  33.   SetPuppetState(SpriteList, #n, 1)
  34.   PictSp = getaProp(SpriteList, #Art)
  35.   set the member of sprite PictSp to xMember
  36.   PictRect = GetPictRect(MyObj)
  37.   set the rect of sprite PictSp to PictRect
  38. end
  39.